Night Owl 6/Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso/026a/upsmft.zip/SPO.PRG

Text File | 1986-05-13 | 2KB | 113 lines

SET DEVICE TO PRINT
**** SCREEN PRINT OUT ****************************
@1,8 SAY "IT'S RELIEF INC."
@1,95 SAY "UPS SHIPPER NUMBER: PA259-973"
@2,8 SAY "BOX 1086"
@2,95 SAY "UPS PICKUP RECORD NUMBER:"
@2,123 SAY B
@3,8 SAY "STATE COLLEGE, PA 16804"
@5,8 SAY "DATE SHIPPED:"
@5,23 SAY A
@7,35 SAY "COMMON CARRIER"
@7,90 SAY "AIR"
@9,20 SAY "ZONE             PIECES      WEIGHT      CHARGES"
@9,80 SAY "ZONE             PIECES      WEIGHT      CHARGES"
@11,21 SAY "2"
@11,31 SAY Z1
@11,43 SAY P1
@11,54 SAY S1
@11,81 SAY "A"
@11,91 SAY Z9
@11,103 SAY P9
@11,114 SAY S9
@13,21 SAY "3"
@13,31 SAY Z2
@13,43 SAY P2
@13,54 SAY S2
@13,81 SAY "D"
@13,91 SAY Z10
@13,103 SAY P10
@13,114 SAY S10
@15,21 SAY "4"
@15,31 SAY Z3
@15,43 SAY P3
@15,54 SAY S3
@15,81 SAY "E"
@15,91 SAY Z11
@15,103 SAY P11
@15,114 SAY S11
@17,21 SAY "5"
@17,31 SAY Z4
@17,43 SAY P4
@17,54 SAY S4
@17,81 SAY "K"
@17,91 SAY Z12
@17,103 SAY P12
@17,114 SAY S12
@19,21 SAY "6"
@19,31 SAY Z5
@19,43 SAY P5
@19,54 SAY S5
@19,81 SAY "L"
@19,91 SAY Z13
@19,103 SAY P13
@19,114 SAY S13
@21,21 SAY "7"
@21,31 SAY Z6
@21,43 SAY P6
@21,54 SAY S6
@21,81 SAY "M"
@21,91 SAY Z14
@21,103 SAY P14
@21,114 SAY S14
@23,21 SAY "8"
@23,31 SAY Z7
@23,43 SAY P7
@23,54 SAY S7
@23,81 SAY "P"
@23,91 SAY Z15
@23,103 SAY P15
@23,114 SAY S15
@25,21 SAY "51"
@25,31 SAY Z8
@25,43 SAY P8
@25,54 SAY S8
@25,81 SAY "R"
@25,91 SAY Z16
@25,103 SAY P16
@25,114 SAY S15
@27,21 SAY "52"
@27,31 SAY Z18
@27,43 SAY P18
@27,54 SAY S18
@27,81 SAY "T"
@27,91 SAY Z17
@27,103 SAY P17
@27,114 SAY S17
@29,21 SAY "53"
@29,31 SAY Z19
@29,43 SAY P19
@29,54 SAY S19
@34,21 SAY "TOTALS"@@34,31 SAY A5
@34,43 SAY A6
@34,54 SAY A7
@34,91 SAY A8
@34,103 SAY A9
@34,114 SAY A10
@38,70 SAY "NUMBER OF AOD'S:"
@38,82 SAY A1
@38,100 SAY "AODCHARGES:"
@38,113 SAY A3
@40,70 SAY "NUMBER OF COD'S:"
@40,82 SAY A2
@40,100 SAY "COD CHARGES:"
@40,113 SAY A4
@42,70 SAY "DECLARED VALUE UNITS:"
@42,87 SAY A13 PICTURE "9,999"
@45,90 SAY "DECLARED VALUE CHARGES: $"
@45,113 SAY A12
@47,90 SAY "TOTAL UPS REVENUE AMOUNT: $"
@47,113 SAY A11
@49,8 SAY " "
RETURN